home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-1.iso / program / airvb25.zip / VB.ZIP / ATESTMDI.FRM < prev    next >
Text File  |  1996-01-18  |  2KB  |  94 lines
  1. VERSION 2.00
  2. Begin MDIForm MDIForm1 
  3.    Caption         =   "Aircraft Instrumentation Custom Control"
  4.    ClientHeight    =   5535
  5.    ClientLeft      =   1500
  6.    ClientTop       =   2085
  7.    ClientWidth     =   8760
  8.    Height          =   6225
  9.    Icon            =   ATESTMDI.FRX:0000
  10.    Left            =   1440
  11.    LinkTopic       =   "MDIForm1"
  12.    Top             =   1455
  13.    Width           =   8880
  14.    WindowState     =   2  'Maximized
  15.    Begin Menu mnu 
  16.       Caption         =   "&Demo"
  17.       Index           =   0
  18.       Begin Menu demo 
  19.          Caption         =   "&Instruments"
  20.          Index           =   0
  21.       End
  22.       Begin Menu demo 
  23.          Caption         =   "&Cockpit"
  24.          Index           =   1
  25.       End
  26.    End
  27.    Begin Menu mnu 
  28.       Caption         =   "&Help"
  29.       Index           =   1
  30.       Begin Menu help 
  31.          Caption         =   "&About Air VBX"
  32.          Index           =   0
  33.       End
  34.       Begin Menu help 
  35.          Caption         =   "&Air Help"
  36.          Index           =   1
  37.       End
  38.       Begin Menu help 
  39.          Caption         =   "All GMS Controls"
  40.          Index           =   2
  41.       End
  42.    End
  43.    Begin Menu mnu 
  44.       Caption         =   "&Order"
  45.       Index           =   2
  46.    End
  47.    Begin Menu mnu 
  48.       Caption         =   "E&xit"
  49.       Index           =   3
  50.    End
  51. End
  52.  
  53. Sub demo_Click (index As Integer)
  54.  
  55.     Select Case index
  56.         Case 0  'instruments
  57.             form1.Show
  58.         Case 1 'cockpit
  59.             form2.Show
  60.     End Select
  61.  
  62. End Sub
  63.  
  64. Sub help_Click (index As Integer)
  65.  
  66.     Select Case index
  67.         Case 0
  68.             about.Show
  69.         Case 1
  70.             i = Shell("WINHELP air.hlp", 1)
  71.         Case 2
  72.             i = Shell("WINHELP instrmlb.hlp", 1)
  73.     End Select
  74.     
  75. End Sub
  76.  
  77. Sub MDIForm_Load ()
  78.  
  79.     about.Show
  80.  
  81. End Sub
  82.  
  83. Sub mnu_Click (index As Integer)
  84.  
  85.     Select Case index
  86.         Case 2
  87.             i = Shell("WINHELP order.hlp", 1)
  88.         Case 3
  89.             End
  90.     End Select
  91.  
  92. End Sub
  93.  
  94.